home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / Libraries / StubCDEF / StubCDEF.p < prev    next >
Text File  |  1994-04-12  |  580b  |  23 lines
  1. unit StubCDEF;
  2.  
  3. interface
  4.  
  5.     function Main (variation: integer; theControl: ControlHandle; msg: integer; param: longInt): longInt;
  6.  
  7. implementation
  8.  
  9.     function CallProc (variation: integer; theControl: ControlHandle; msg: integer; param: longInt; proc: procPtr): longInt;
  10.     inline
  11.         $205F, $4E90;
  12.  
  13.     function Main (variation: integer; theControl: ControlHandle; msg: integer; param: longInt): longInt;
  14.         var
  15.             rc: longInt;
  16.     begin
  17.         Main := 0;
  18.         rc := GetCRefCon(theControl);
  19.         if procPtr(rc) <> nil then
  20.             Main := CallProc(variation, theControl, msg, param, procPtr(rc));
  21.     end;
  22.  
  23. end.